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Fee b00 Source Listing if-sep- 350-1382 9%: $3 $ DL EKSVASAA caaSten Févr sh SRCJEDFVAR.PAS; 1°29 . 
{C IDENT (*v04-000"), 


Seeereeeerererererrrrerererererererareerererereererererererenereneneeeeeeeee \ 


: | 
® COPYRIGHT (¢) 1978, 1980, 1982, 1984 BY ‘ | 
: DIGITAL Eau CORPORATION, MAYNARD, MASSACHUSETTS. ‘ 
- ALL R S RES RVED ° ; | 
« THIS ier ai eee uote a ICENSE A MAY nee we oP ' 
> YNCLUsiON OF pant YRIGHT. NO NOT IC : , Js. bth OR ANY uth mine ° 
. OPES 3 THEREOF MA sen PROV DED OR THE RWI Pa To TO ANY * 
* PERS + ITLE TO AND QUNERSHIP OF HEREBY * 
° RANSFERRED . 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR SEL LABILITY OF ITS * 
: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITA . 
MOLEC E ELLE PEALE LADD LOD EIDE E LODE LENS EDAD TOOT OOOO: 
FACILITY: VAX/VMS EDF (EDIT/FDL) UTILITY 
ABSTRACT: This facility is used to create, modify, and optimize 
FOL specification files. 
ENVIRONMENT : NATIVE/USER MODE 
AUTHOR : Ken F. Henderson Jr. 
CREATION DATE: 27-Mar-1981 
DC ? MODIFIED BY: 
if : v03-010 RRB0009 owland R. Bradley 22 Jan 1984 
DC : Ermenconent for ao splay of # buckets in Index, 
4! Pages to cache index, and average # key exams. 
0 v03-009 KFHO009 Ken Henderson 10 Sep 1983 
ut } Support for named UICs. 
0050 03-008 KFHOO0s n Henderson 8 Aug 1983 | 
53 Changes for seperate compilation. 
DC § 03-007 KFHOOO7 Henders 26 Apr 1983 | 
DC Added FOUND_O, PR TRARY NDEX. BUCKETS. 
0055 Added a bunth of initia artes Ges; 
it to reduce the code in | 1TOr. | 
D0 Added SEC_ATTR, SOMBER. Key Ss eee 


98¢ $9:96:39 DISkavm 
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v03-005 KFHOOOS Ken Nondereee 
reference of FDLSTYPE to 


+. 


KF HOO004 Ken 
Removed DASH, and ad 
FT, _MID, RIGHT. 


+4 + 


v03-003 KFHOOO 


56 


K 
main variables 
nto the xDATA arrays. 


v03-002 KFHOO002 
Added EDFSGL_SECNUM. 


Ken Henderson 
ook out EDITFOL. 
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Ken Henderson 


14 Apr 1983 


31 Jan 1983 


20 Jan 1983 


8 Sept 1982 


2 April 1982 


23-Mar-1982 


£3 
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706-000 Source Listing 17307-1382 99:95:99 «— PNKSUmsmASTER EEDr-SRCIEDFVAR.PAS;1 035 
ENVIRONMENT (*LIBS:EDFVAR"), 
INHERIT ( 
*SYSSLIBRARY STARLET", 


* SHR FDLPARDEF’, 
*LIB HEDE TYPES” 


"LIBS: EDFTYPE’ 
"LIBS: EDFSTRUCT 


J 
MODULE EDF VAR; 
VAR 


‘ 
‘ { + 
' ~—— are for the FDL file(s). 
‘ FDL_DEST : CVOLATILE] TEXT; 
‘ TT : TEXT; 
JOURNAL _F ILE : VOLATILE TEXT; 
JOURNAL “ENABLED : VOLATILE BOOLEAN := FALSE; 
‘ JOURNAL ~ FILENAME : STRING2SS; 
‘ INPUT_FILENAME DESC DESCRIPTOR; 
011 FILENAME DESC DESCRIPTOR; 
9 1 ANALYSTS FILENAME DESC : DESCRIPTOR: 
1 RES OUTPOT FILENAME DESC : CVOLATILE] DESCRIPTOR; 
1 DEFAULT _F ICENAME_DESC : DESCRIPTOR; 
1 NL_DEV_BESC : DESCRIPTOR; 
1 ANALYSTS_SPECIFIED : BOOLEAN := FALSE; 
! ANALYSIS_ONLY : CVOLATILE] BOOLEAN := FALSE; 
1 { + 
011 These are the main editing control variables. 


While editing is true, we stay in the editor. 

Take_defaults is true if we're answering questions 
gytenestcot ty. 

If no_input is true, we skip the input_fdl_file operation. 

If auto_tune is true, we don't do any Output to the terminal, 
oF oupers any from it. It's all an automated Optimize scrip?. 


: CVOLATILE) BOOLEAN := FALSE; 
: BOOLEAN := FALSE; 


ae a a ss a a 2s ss a 3 os SS 4 DOO 


e 
_ 
Ps 
= 


EDITING 
TAKE DEFAULTS 


1 3 
| 1 : Poe := FALSE; 

AUTO_TUNE : CVOLATILE) BOOLEAN := FALSE; 

1 { + 

: This is for outputting FDL to the terminal. 

, SYSSOUTPUT_NAME : CVOLATILE) STRING11 := ‘SYSSOUTPUT:'; 
1 { + 

, 3 These indicate whether classes of errors were detected. 
140 SYSSINPUT_ERROR : CVOLATILE) BOOLEAN := FALSE; 
0141 RMS_INPUT_ERROR : CVOLATILEJ BOOLEAN := FALSE; 
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CONTROL 
N_CT 
N 
Ss 


NUMPO 
PAG 


INT 
PAGEPOINT_ 
tape hg | RIGHT 


GRAPH_TY : 
CURRERT_GRAPH_INDEX : 
LAST_GRAPH_INDEX : 
STEPS 


Y_LABEL 
{ + 


These are the ‘width’ 
1. at be typed. 


PRIMARY _WIDTH 
SECONDARY _WIDTH 
{ + 

a array stores the 
SECONDARY _MAX 


{ 


PRI_SEQ 


{ + 
These stor 
of tte vTl 
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RMS OUTPUT ERROR VOLATILE) BOOLEAN : 


VOLATIL 
Vv 


Vv ] : 
VOLATILE) BOOLEAN : 


: XY_PLOT_TYPE 
: XY Y 


arrays that indicate how long a particular keyword 


: PACKED ARRAY CPRIMARY_ TYPE] OF BYTE; 
: PACKED ARRAY CSECONDARY_TYPE) OF BYTE; 


maximum value of the number-valued secondaries. 
: ARRAY CSECONDARY_TYPE] OF INTEGER; 


legal sequencing of Primaries as defined by the 
: CVOLATILE] PACKED ARRAY CPRIMARY_TYPE] OF BYTE; 


the character sequences to set the video attribute modes 
(and compatible) terminals. 
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EDF VAR 16-Sep-19 142: VAX-11 Pascal V2. 5 
504000 Source Listing g- ety 7 90:96:39 DISKSVMSMASTER: 4 ret SRCJEDFVAR.PAS;1 pags 
199 ANSI_RESET : CVOLATILE] STRINGS = ARTS Ct t08 tm"): 
99 ANSI “BOLD : STRINGS s= (°° (27)"*, "C8, "18, mf): 
1 ANS “UNDERSCORE : STRINGS = (O8CO7)tt tte tat tmt); 
O¢ ANSI “BLINK : STRINGS = ('*(S7)00 58 yt m' 
0 ANS I “REVERSE : CVOLATILE] STRINGS := (°'(275"', Ee, 7° Mm 
8 05 VID_ STRINGS : STRINGS; 
0206 NULC STRINGS : STRINGS := (°'(COD'", "COD", "(OD)", "(0)" "Ds 
0207 EMPTY_STRING : STRINGE ts nee any 5 
0208 HIFT : VOLATILE STRINGS 
0510 CRLF _SHIFT ‘ CVOLATIL 1b afucs oe” re 
8 11 ¥ js FYORAT mittt PPE POCQpeH HHCQyee eHCQyee eecQyery; 
9 \9 LOW_SHIFT : STRINGS: 
\3 NULL_ CHAR : CHAR := ("'(0)''); 
O16 {+ | 7 
ose This is the terminal and screen database. 
0219 CHAR z= ('9(9)'"); 
0220 ESCAPE CVOLATILE) CHAR := (°'(27)"") 
0221 APOSTROPHE CHAR := (*'°(39)""); 
Oe CONTROL_W : CHAR := (°°(23)"*) 
0223 CONTROL ~2 : CVOLATILE] CHAR := (''(26)'"); 
beak QUESTION MARK : CVOLATILE) CHAR := ("'(63)° 
0225 ERR_CHA : CVOLATILEJ CHAR: 
0226 CONTROL G : CHAR := (°'(7)''); 
0227 CRLF : CVOLATILE] STRING2 := (°°(13)"",'"(10)""); 
0228 TERMINAL_TYPE : BYTE; 
0229 TERMINAL - SPEED : INTEGER; 
0g 0 ANSI_CRT~ : BOOLEAN := FALSE; 
0231 GIS : CVOLATILE] BOOLEAN := FALSE; 
OSes DEC -tht : BOOLEAN := FALSE; 
023 DEV TYPE : INTEGER: 
0234 VIDEO TERMINAL : = FALSE; 
0235 : INTEGER: 
0236 SCREEN FLAGS : ATILE) SCRISTYPE; 
0237 OUT_LIRE : VOLATILE TEMP VARYING; 
0238 N : CVOLATILE] INTEGER := 1: 05 
0239 CHF FLAGS : CVOLATILE] INTEGER := 0: 0S 
0240 LA : CVOLATILE] FDLOSTYPE; 
0241 TEMP_FDL3STYPE : EVOLATILE] FDL3STYPE: 0S 
Og4¢ LINEWIDTH : NTEGER; 0S 
024 LINES PER PAGE : CVOLATILE] INTEGER; 05 
0244 DEST_TS_TERMINA : CVOLATILE] BOOLEAN; 0S 
0245 LINES SROWN : VOLATILE NTEGER: 0S 
046 MINIMOM_TERM_WIDTH : GER := 80; 0S 
0247 MINIMUM-VIDEO_PAGE : INTEC ER := 24; 0S 
0248 SCROLLIAG_SET~ : CV OLATILE E) BOOLEAN : := FALSE; 0s 
0249 FULL_PROMPT : ati := TRUE 0S 
0 30 TEMP FULL PROMPT : VOLATILE) B00 OLEAN := FALSE; | 0s 
5 QUAD" TIME : QUADUORD; | ; 
54 DEFAULT_PRIMARY : PRIMARY TYPE := FILES; | 
0255 DEF AULT~PRINUM : INTEGER™:= 0; | 0s 
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ieee 90439 


VAX=11 FDL Editor’; 


pETURN to continue (*Z for Main Menu) '; 


aC One : juts 72 1; 
INE_O : CVOLATILE] INTEGER := 1; 
LANER’ ENE : INTEGER := 17; 
PROMPT_LINE : INTEGER := 23; 
PARAM_BvLOCK : CVOLATILEJTPASTYPE; 
SEC : STR * Secondary Attributes '; 
aie STRING : STR = ‘EDFHLP'; 
IDENT STRING STR 
IDENT_STRING_LENGTH : INT = 40; 
QUES _AINT : STR : (Type "2" for List of Keywords)’; 
EDF READER STR s= * V 11 FOL Editor '; 
CONTINUE TEXT : STR : 
ress 
ISTATUS : {vo J INTEGE 
FAB_DUMMY : FAB_ 
RAB_DUMMY : FABD 
FDL_BLOCK : Sypek ILE] “*FDOL_TYPE 
FDLSAL BLOCK : CEXTERNAL, VOLATILE © INTEGER: 


EDF $GL_SECNUM 

EDF $GL_PROT_MASK 

EDFSGL_FID1~ 

EDF $GL_ “FID 

EDFS$GL_FID 

EDF $GL_OWNER_UIC 

EDF $GL_SPARET 

DF SAB_STRING 
OMM 


MMMMmMmMmmmmmmmmmmmmmmrn 


ERNA 
ERNAL: ‘VOCATIL 
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aie nA Re. 
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ETERNAL CTRL AREA LONG; 


RAY; 

LONG; 
LONG; 
LONG; 
LONG; 


L V2. 
Vv AS; 
TER: féDresk SRCJEDFVAR.PAS; 1 Pays 


ONG; 
DESCRIPTOR; 
DESCRIPTOR: 


EDF VAR ibese - VAX-11 Pascal v2. 7 EDF 
Oe ~000 Source Listing ~3007 138% 9: $$; $ DISKSVMSMASTER: f Fret SRCJEDFVAR.PAS; ° rb V 
13 EDESAB_ SHARING. TABL KEY : CEXTERNAL, VOLATIL LONG; 098 
1 EDF SABSHARING-TABLE-STA : EXTERNAL.VOLATILE) LONG: | 9 
15 EDFSAB-SYSTEM_TABLE_REY : CEXT RNAL. “VOKA TILE) LONG; g 
1g EDFSAB-SYSTEM- TABLE STA : CEXTERNAL,VOLATILE) LONG: g 
1 EDFSAB_POSIT_TABLE_REY : Mag »VOLATIL ONG; 
18 EDF SAB_POSIT TABL STA : CEXTERNAL, VOLATILE LONG: 
1 EDFSAB-PROT_TABLE_R : CEXTERNAL.VOLATILE) LONG: 95 
0 EDF $AB_PROT-TABLE STA : CEXTERNAL, VOLATILE) LONG: a: 
1 EDFSAB_ORG_TABLE_RE EXTERNAL. VOLATILE] LONG; 
: EDFSAB-ORG-TABLE-STA : CEXTERNAL,VOLATILE) LONG: 095 
EDF $AB_SOURCE_ ABLE KEY EXTERNAL,VOLATILE) LONG: 095 
4 EDF SAB_ SOURCE TABL “STA EXTERNAL, VOLATILE LONG: 095 
5 EDF S$AB_~RU_TABCE_KEY EXTERNAL, VOLATILE] LONG: ae 
$ EDF SAB_RU-TABLE STA : CEXTERNAL,VOLATILE) LONG: 95 
EDF $AB_CARR_TABCE_KEY EXTERNAL, VOLATILE] LONG: 10¢ 
8 EDFSAB-CARR-TABLE ST EXTERNAL, VOLATILE] LONG; 10¢ 
9 EDF SAB_FORMAT_TABLCE_KEY EXTERNAL, VOLATILE] LONG: 10¢ 
EDF $AB_FORMAT- TABLE STA EXTERNAL, VOLATILE] LONG; 10¢ 
1 EDF SAB_TVPE_TABLE_KEY EXTERNAL VOLATILE] LONG; 10¢ 
é EDF SAB_TYPE-TABLE STA : CEXTERNAL, VOLATILE LONG; 10¢ 
0 EDF $AB_LOAD_METHOD_TABLE_KEY EXTERNAL, VOLATILE LONG: 10¢ 
9 EDF $AB_LOAD-METHOD-TABLE-STA : CEXTERNAL, VOLATILE] LONG: 10¢ 
5 EDF $AB_WEIGAT_TABLE_KEY EXTERNAL, VOLAT ILE] LONG; 10¢ 
03 EDF $AB_WEIGHT- TABLE STA EXTERNAL, VOLATILE) LONG: 10¢ 
0 EDF SAB_SURFACE_OPTION_TABLE_KEY EXTERNAL, VOLATILE] LONG: 101 
0 8 EDF $AB_SURFACE_OPTION- TABLE STA EXTERNAL VOLATILE) LONG; 101 
0339 EDF$AB_CURRENT_FUNC_TABLE_KEY EXTERNAL, VOLATILE] LONG: 101 
0340 EDF $AB_~CURRENT-FUNC_TABLE_STA EXTERNAL, VOLATILE LONG; 101 
0341 EDF$AB_DESIGN_CYCLE_TABLE_KEY EXTERNAL VOLATILE] LONG; 101 
0 g EDFSAB_DESIGN-CYCLE-TABLE_STA EXTERNAL, VOLATILE LONG: 101 
EDF$AB_SCRIPT_OPTION_TABLE_KEY EXTERNAL, VOLATILE) LONG: 101 
346 EDF$AB_SCRIPT-OPTION TABLE _STA EXTERNAL ,VOLATILE) LONG; 101 
5 EDFSAB_YES_NO-TABLE_REY EXTERNAL, VOLATILE] LONG: 101 
346 EDFSAB_YES_NO_TABLE_STA EXTERNAL, VOLATILE) LONG; 101 
347 EDF $AB_SET_FUNCTION-TABLE_KEY EXTERNAL, VOLATILE] LONG; 102 
& EDF SAB_SET-FUNCTION- TABLE STA EXTERNAL, VOLATILE) LONG; 102 
0349 EDF $AB_GRARNULARITY_TABLE_REY EXTERNAL, VOLATILE) LONG; 10¢ 
50 EDF$AB_GRANULARITY-TABLE-STA EXTERNAL, VOLATILE) LONG; 10¢ 
51 EDF $AB_PROMPTING_TABLE_KEY EXTERNAL VOLATILE) LONG; 10¢ 
2g EDF $AB_PROMPTING_TABLE_STA EXTERNAL ,VOLATILE) LONG; 10¢ 
5 EDF $AB_RESPONSES_ TABLE _KEY EXTERNAL ,VOLATILE] LONG; 10¢ 
24 EDF SAB-RESPONSES_TABLE_STA EXTERNAL, VOLATILE] LONG; 1 
{ + 10¢ 
6 33 _ following are the pointers to the Definition Linked List. | 19 
59 DEF _CURRENT VOLATILE) *LINE_OBJECT := NIL; | 10: 
DEF-SCRATCH VOLATILE) “LINE-OBJECT := NIL; | 103 
1 DEF ~HEAD VOLATILE) “LINE-OBJECT := NIL; | 10: 
¢ DEF-TAIL VOLATILE) “LINE-OBJECT := NIL; 10: 
DEF-SUCC VOLATILE) “LINE-OBJECT := NIL; 10: 
; DEF PRED VOLATILE) “LINETOBJECT := NIL; | 10; 
{ + 10: 
These point to the analysis linked List. | i 
9 DEF _ANL_HEAD : *LINE_OBJECT := NIL; | 104 
| 
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DEF_ANL_TAIL : “LINE_OBJECT := NIL; 

DEF “SAV HEAD : LINE ZOBJECT = NIL; 

DEF “SAVE-TAIL : “LINETOBJECT := NIL; 

POINTING_AT_DEF INITION : BOOLEAN := TRUE; 
FILE_CREATED : CVOLATILE] BOOLEAN := FALSE; 


{ + 
<n are used for input string processing. 


INPUT _DESC : NOCATICES DESCRIPTOR: 
INPUT” eee VOLATIL STRING2SS; 
INPUT NUMBER : INTEGER: 
QUAD _DESC + CVOLATILE) RECORD 
CASE QWHICH : : QD SWITCH 
0 QWORD (TQOLONG : OB ACKED RECORD 
9 a she LONG 
90 N 
51 DWORD : (DSC : DESCRIPTOR) 
4 D; 
9 
0394 { + 
9 95 ACTIVE CALCULATION DATABASE. 
0 39 LINKED : BOOLEAN; 
0398 ACTIVE_AREA : INTEGER: 
0399 ACTIVE PRIMARY : PRIMARY_TYPE; 
9400 VARIABLE RECORDS : BOOLEAN? 
01 CUR_MAX REC INTEGER; 
0¢ BYTES PER BUCKET INTEGER: 
0 BUCK KET DEFAULT INTEGER: 
04 YOMART. ENDER BUCKETS INTEGER; 
05 iN it PRIMARY 6 S ARRAY (0..31) OF INTEGER; 
06 ADDED PRIMARY BUCKETS ARRAY (0..31] OF INTEGER; 
07 NIT_RUMBER BO ARRAY Q.. 1] OF INTEGER: 
08 DDEB_NUMBER BUCKETS ARRAY (0..31) OF INTEGER: 
09 RECS PER_BUCRE ARRAY [0..31) OF INTEGER: 
10 EEPEST INTEGER; 
11 FIRST PLOT BOOLEAN; 
12 OPTIMTZI : BOOLEAN; 
41 VISIBLE QUESTION : BOOLEAN; 
14 WAIT_HEC : BOOLEAN: 
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0 
f 16-Sep-1 742: VAX-11 Pascal V2.4-277 Page 
¥04~000 Source Listing 373601382 99:48:39 DLEKSVMSMASTER TEDF-SRCIEDFVAR.PAS; 1 (45 
1 { + 
13 QTAB is the table that drives the Q+A routine - QUERY 
13 ay xDATA arrays hold the main EDF database. 
QTAB : ARRAY CEDFSK_QTABSTART. .EDFSK_QTABEND] OF QTAB_ENTRY; 
1 QTAB_OFFSET : INTEGER; 
‘ 
¢ String descriptor elements 
$ SDATA : ARRAY CEDFSK_SDATASTART. .EDF $K_SDATAEND] OF DESCRIPTOR; 
{ + 
Real elements 
1 RDATA : ARRAY CEDFSK_RDATASTART. .EDFSK_RDATAEND] OF REAL; 
é C4 
¢ +s eee elements 
BDATA : ARRAY CEDFSK_BDATASTART..EDFSK_BDATAEND] OF BOOLEAN; 
{ + 
is engoger elements 
rh IDATA : ARRAY CEDFSK_IDATASTART..EDFSK_IDATAEND] OF INTEGER; 
4 { + 
a 5 tes (boolean) elements 
Pr VDATA : ARRAY CEDFSK_VDATASTART..EDFSK_VDATAEND) OF BOOLEAN; 
48 { + 
$3 ores. scratch variables used during the Q+A. 
51 TEMP_STRING255 : a tet 
3 TEMP~ DESCRIPTOR : [VOLATILES DESCRIPTOR; 
a7 QUERY FLAG : BOOLEAN; 
LOW_KEY : INTEGER := 0; 
55 HIGR_KEY : INTEGER := 0; 
33 LOW AREA : INTEGER := Q; 
5 HIGA_AREA : INTEGER := 0; 
38 FOUND_AREA : BOOLEAN := FALSE; 
5 FOUND_KEY : os Pr := FALSE; 
60 FOUND 0 : BOOLEAN := FALSE; 
61 MAX_KEY_SIZE : INTEGER; 
66 MIN_KEY_SIZE : INTEGER; 
6 SEGMENT WANTED : ARRAY (0..7] OF BOOLEAN := 
64 (FALSE ,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE); 
65 SEGMENT_POSITION : ARRAY (0..7) OF INTEGER; 
$8 SEGMENT_LENGTH : ARRAY (0..7) OF INTEGER; 
6 SEGMENT NUMBER : INTEGER; 
$8 BUCKET OVERHEAD : INTEGER; 
$ MIN putke! : INTEGER; 
ENTRY SIZE : INTEGER; 
7 LOWMAR : INTEGER; 
72 EXTRA : INTEGER; 


og 
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EDF VAR if-se Sep-19 VAX-11 Pascal V2.4-277 P 10 ED! 
Source Listing opm 18Re PEGS iSS Pie ncARe Pha Pesr Seczeorvan.eas;1 aes” vo 
CUR _MAX Ne aN : INTEGER; 
fay sa ANSWER_LENGTH : INTEGER: 
7 AL SET : BOOLEAN: 
7 KEYS_SET : BOOLEAN := FALSE; 
tei : poet AN; 
MAX_REY_ POSITION : INTEGER: 
TEMP _REA : REAL; 
TERP=s ATUS : INTEGER; | 
TERP N Be G Ri: | 
NULL_STRING : Cvo ATi JDESCRIPTOR; 
5 TERT $ INE OB 4 1; 
FULL_CHOICE : SOOLEAW: 


nye is the array of secondary value types. 


vines 


91 EC_TYPE : CVOLATILE] PACKED ARRAY CSECONDARY_TYPE] OF 
3g PACKED RECORD 
.] T : BOOLEAN; 
: BOOLEAN; 
QUAL BOOLEAN; 
: BOOLEAN 


{ + 
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10; CONNEC ~ 
714 3: ites, } 
A ‘ IDENT 
1 t JOURNAL, > 
71 3, KEY, > 
71 7, RECORDS, } 
71 . SHARING, 
7 2: SYSTEM, >} 
7 TITLE $ 
i ); 
726 {+ 
725 Initialize the ‘width’ arrays - that indicate how long a particular 
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7 PRIMARY_WIDTH := ( 
y 0, { DUMMY _PRIMARYS } 
4 ¢. ACCESS, } 
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735 4, AREA 
7 7. CONNECT, } 
7 4, DATE, } 
07 4. FILES, } 
7 3. IDENT 
07% . JOURNAL, } 
074 3, EY, > 
074 g. RECORDS, } 
oe SveTER.’? 
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D74 e 
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7 8, BLOCK_10$ } 
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1308 1 trate KR AREOrE HIGH > TRUE, 1000, - EDFSK_MAXRECSIZ, 0, 0), 
1510 | { EDF Se SUR SURFACE! “OPTION } , . os: 
1ai§ I (KEYWORB_ANSWER? TRUE, EDFSK_LINE_SURFACE, 0, . . | 
1512 I {+ | 
1318 1 ANSUER CLASS DEFAULT_OK, DEFAULT, LOW_BOUND, HIGH_BOUND, KEY_TABLE, STATE_TABLE | 
1515 I -} 
| 
1346 1 fxEvuon OASOERE / TRUE, FDLSC_FILE, 0, 0. 0, 0), | 
Hc ge . . 0 arte 
{ EDFSK~TEST SECONDARY_VALUE 5 ‘i 
i ? I (OBJECT“ANSWER, FALSE, 0, 0, 0, 0 | 
1 : | | 
1388 { " | 
1525 | NULL_ STRING = ( 
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ae 
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wv 
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on 
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ren i 
ow w 
-—— o a. 
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= ws ' 
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vuaw2 YL 
z2><«- ws o a > ~ »~ 
we JO “~ “~ AEAWAAe 
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eee onan 2 o S&Zzozuaczt i = 
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ASO www = _ ZZO2I0rw -— 
VVLOUYU Zavw = a SaVUECE-Zz OO 
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anaa “uD w~ (7) aammMoGqzm%o a 
Net et ed et VY YS ke PPP 
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D, 
T, 
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Source Listing 


ud 

-— 
° < 
-~ 4 
a 
= 
us 
ra 

‘ 
— 
VY 
ive) 
a 

‘ 
ua 
z 
ad 
a 


DTYPE 

CLASS 

DTYPE 

CLASS 
_SECONDARYS, 


K 
K 
K_ 
K 


. =z . q<qaqee eee eee eee 
COFCO WRK KE HEB EE EEE EEE 


veuw i) 
wWWiew * Wer = 
~oooz- ~cooao2z- 


$ 
$ 
$ 
$ 

. 

DUMMY 


KEY 
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V2.4°277 Pass rage 31 


VAX-11 Pas 


SOSSSDUADE SLE 


Sepa1986 2e:68:40 


3 DF . SRC JEDF VALUE 


i 


EDF VAR 


Source Listing 


ses 8? 8@® 8&8 &© & & & 8&8 8&8 @ 

peeve lye lvelvelvelvelvelvervelvervelry) 
MNMNMMNMMNNNMNNMNMNNNY 

a A A I I I I I I 
qddddetdeetdaeeaaet + 2» *e 
i COO -— 


{ End of File SRCS:EDFVALUE.PAS } 
{ End of file: SRCS:EDFVAR.PAS } 


END. 


ee ts a ad Ot ne ad ad ad ad ad nd Od Od Od ad Od Og Od 


BSRISRSSa ge ER LE Seo Nasa 
MAMAMIANAAAAAALAAAY woonovovono 


A ee eel cel ce cee oe ol eel oe el ce cee el cel ce cel ee ee ee oe ee ee eel ea 


EOF van 
v04-000 Generated Code 


00 00 00 54 53 45 44 4C 44 38 
00000001 saat’ Wes ae 
00000001 000041 000000 
45 4C 49 46 SF 4C 41 4€E 8 88 4F 4A OC 


00000001 amet a ae sBoabs 


00000000 00000000° 00000000 00000010' 


00000000 00000018° 00000000 00000024" 
00000000 00000028" 00000000 00000038' 


00 


00 


00 
00 


00 


00 


1" 


00000 
doge 
01 


SOOOCOCOCOCOSOOSOSOOSOOOOOOOOSOOSOOOOOOOSOOOOSOOOSOOSOOSoOO CO COOOOOO 
COOOOCOCOCOOSOCOOOOCOCCOCOSSSSSOSOCSSCSCCOOOOCOOOoOoOoOoOOoOOoOSoO CoO COCOOoOO 
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8 
$ep-1984 00:42: VAX-11 Pascal V2. 
ety 7 99:48:39 
‘ EDFVAR 
SIDENT \V04-000\ 
-PSECT $CODE,PIC,CON,REL,LCL,SHR,EXE,RD,NOWRT,2 
C.AAA: .LONG 0,65,1 
ASCII <8>\FDL_DEST\<0><0><0> 


C.AAB: LONG 
ASCII <b>\fT\<0> 


C.AAC: :LONG 0 $9 1 

ASCII = <42>(JOURNAL_FILE\ 

PSECT $LOCAL,- 

PIC, CON,REL,LCL,NOSHR,NOEXE,RD,WRT,2 

FDL_DEST: 

,ADDRESS .+16,0,C.AAA,0 

‘BLKB } 
TT: .ADDRESS .+16,0,C.AAB,0 

-BLKB | 


JOURNAL_FILE: 
.ADDRESS .+16,0,C.AAC,0 
~-BLKB 


1 
3 
JOURNAL _ENABLED: 
-BYTE 0 
“BLKB 3 
JOURNAL _F ILENAME : 
-BLKB 255 
INPUT_F ILENAME_DESC: 
OUTPUT _FILENAME_DESC: 
ANALYSIS. FILENAME _DESC: 
RES_OUTPUT FALENAME_DESC: 
DEF AULT_FILENAME DESC: 
NL _DEV_DESC: : 
ANALYSIS. SPECIFIED: 


corm —- 


“BLKB 
ANALYSIS. ONLY: 
“BYTE 
“BLKB 
EDITING: .BYTE 
TAKE_DEFAULTS: 
.BYTE 


oOo WO WOWO WO 


4-277 Pa 
DISKSVMSMASTER: LEDF .SRCJEDFVAR.PAS:1 (2 


| 
| 


° 32, 


EDI 
vO 


[ 


Generated Code 


00 3A 54 55 50 54 55 4F 


24 53 «59 


oO 
o 


53 


oOo 
oO 


So 
So 


o 
o 


So 
o 


01 


9 
1E-Se0-1984 00:42:36 VAKeIT Pas 
-BLKB 3 
AUTO_TUNE : 


BYTE 9 
-BLKB 
SYSSOUTPUT_NAME: 
ASCII \SYSSOUTPUT:\<0> 
SYSSINPUT- ERROR: 
BYTE 
-BLKB 
RMS_INPUT_ERROR: 
-BYTE 
-BLKB 
RMS_OUTPUT ERROR: 
py fe 
CONTROL AiEE Ted: 
-BLKB 
MAIN_CTRLZ: 
-BYT 
-BLKB 
MAIN_LEVEL: 
<BYTE 1 
-BLKB 
QUESTION = [YPED: 


jelejelelelelelelelelelelelelolololelelolelelololeolololo) 


— a a a ss os bs a > a > a as ss a 2 te tt 


-BLKB 
XY PLOT: sSLKL 
COCOR_PLOT 


XY_ARRAY: 
~BLKL 

COLOR_ARRAY : 
-BLKL 

COLOR_ROW: 
-BLK 


NOODWWO> > Pr Serer Yr PP PS Yr OOOO0O0O0000MMMO@CCD 
FOOOMOWDNWAIMMOOQOSOSOI OM OWWULS FOG OWWWNS SOON &— 


@mrncoco 


BREAKPOINT LEFT: 
BREAKPOINT ni: 
BREAKPOINT RIGHT: 
DEPTHPOINT. LEFT: 
DEPTHPOINT MID: 
C DEPTHPOINT RIGHT: 
EXAMPOINT LEFT: 
EXAMPOINT MID: 
EXAMPOINT RIGHT: 
NUMPOINT_ LEFT: 
TBLKL 


Foe 


COOCOOCOCOCOOCOOOOOCOOSOCOCOSSSSSSSSSOCOOCOCOOOOOOOOOOOOOOOOOOOOOOOoOO 


POROPOROPOROPOPOPONOPOPONIPOPONMIPUNIPIFOMITUN OOOO 


OOoeroecs 


Oaocc 


6 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Lv 3| 
tha FEbE SRCJEDFVAR.PAS: 1°42) > 


| 


9 
EDF VAR Igege -1984 742: VAX-11 Pascal V2.4-277 Page 34 
Oe YO00 Generated Code ~3007 1383 99:48:39 DISKSVMSMASTER: LEDF .SRCJEDFVAR.PAS; 1 (25 
NUMPOINT_MID: 
B »BLKL 
NUMPOINT_RIGHT: 
BLKL 
PAGEPOINT_LEFT: 


LKL 
PAGEPOINT MID: 

-BLKL 
PAGEPOINT RIGHT: 
GRAPH_TYPE : : 
CURRENT_GRAPH_INDEX: 
LAST_GRAPH_INDEX: 

-BCKL 1 
STEPS: .BLKL } 

: 2 
PRIMARY_WIDTH: 


—_—_- —_—_- —- —- — — 


QAMOON 


FEMS LF LFOOMO DOS FOO OaOOS FOO 


SSSESSSSSS 


07 06 03 07 05 06 04 07 04 OF 10 03 06 00 SIGNED_BYTE 0,6,3,16,15,4.7 14045547 4306.7+6,5 | 
1117 16 09 OF 05 06 08 09 copmmenie 1 3 ? 
OA 13 OF OF 11 10 13 14 iH 8 ° 91 : TGNED BYTE 048-64 TREE RTT RETA Lf es 
0B OC 7 0B 08 O 8 0B 1 9 9,8,6.12.8,11,7,11,12,11¢16,17,16,9,11,126" 
OF OA 1 1110 1 C 11 10 92E 18,16.16.17,6,18,10,15,14,14,15,19,15,9,= 
08 C OF 10 O€ 13 09 OE OE 9 19°14.16,.9,15.12.6,8,10,8,10,19,11.12,7-" 
OF OF OF OF OC A C 08 OA 10°9,12,14.15.15.15,9,19,13,19,10,13,14,- 
11 13 08 04 10 11 OF OF OD 13 09 15.17,16,4,8 519017 01205- 14,10, 10,815,159. 
0B OF 11 F OF 08 0c 966 9,9.17.14.11.11.11.10.11,10,12,11,137,9-" 
OA OA 17 16 9 07 OD A OB 9°26,2%,16,16.17,10,17,4,8,10,6,0,0,0,10,= 
06 12 10 OA 0 A A 11 98 16,18,6.4,6,3,.11.8,3,6.14,6,6,6 
06 E 3 6 04 99 
998 .BLKB 
00000 336 synaenagert sy 0,0,0,0,0,0,0,0,0 : 0,0,0,0,0,0,0,0,0,0,0 
sep 0 94040,0;0, 399893983 0163 0 053303389. 
ree 288°5 599-9 9 +893 33.0.0,0,0,0.- | 
Al4 Assess ta ertty ' 655556 o 0.8.8 ace | 
0,0,0,0,0,0,0,0,0,0,65535.0,0,0,0 | 


"oO 


oooo™"oO™ ROOOOCOCOCOOSS 
SSSS7S7SSSS2SSSSSSSSSS 


SOOO OOOOOSOOOSOOSOOOOOSOSOOSOSS SOOCSOSOCOSOSOOSOOCOSOOOOOOOOOOOOOOOOOOOOOOoO 
> oowono 
mse 
foorn 


oooooo 
> 
Coooononm 


«LONG 


UU SDP U 
PUUUUUUYU 


ADOOODNC 


ANSI_RESET: 
-ASCII 
ANS1_BOLD: 
ASC 
ANSI _UNDERSC 
ANSI _BLINK: 
-ASCI 
ANSI_REVERSE: 
-ASC 
VID_STRINGS: 
NULL _STRING4: 
-ASCI 
alibi +5 F 


‘ 

SHIFT: -ASCII 

CRLF_SHIFT: 

ASCII 

LOW_SHIFT: 
-BLKB 


MULL_CHAR: 


I] 
ORE: 


St 


TODS FOOCOMOMO@DS FOOlNO 


o 
“ 
3 
iJ 


20 ESCAPE: . 
(44 APOSTROPHE : 
C44 , 


~ POAPOAAAAAOAIOAAAAAAAAAAAAIAAAOAD 
= ~OocecD 


BYTE 


ifesen-1986 90:48:36 


FS PRI_SEQ:.SIGNED_ 


; 4-277 
DT SKSVMSMASTER:EEDF<SRCJEDFVAR.PAS; 1° C2) 


0 999 .0,0,0,0,0,0,0,0,0,254,100,- 
BPE Siete ee in 0. 


BYTE 15,8,4,13,14,11,10,4,3,1,6,12,7,9,2,0 


<27>\COm\ 
<27>\C1m\ 
<27>\C4m\ 
<27>\CSm\ 
<27>\C7m\ 

4 
<0><0><0><0> 


\'""\<0><0> 
<9><0><0><0> 


<13><10><9><0><0><0><0><0> 


*A\?\ 


nu we Ww 


35 


¥06~000 Generated Code f-seo-19 9O:58:89 | esdmcARStEn Pepe -sacJeDevan.pas: 1’ 225 


3 
00 00 OA OD £3? COL ae “ASI <13><10><0><0> 
esp TeRmln 
C64 TERMINAL Rice 
¢ TBLKL so 
C68 ANSI_CRT: 
00 ¢ -BYTE | 
C “BLK 
00 C6C REGIS: .BYT 
¢ . LK | 
00 ¢ DEC_CRT:.BYT | 
C74 DEV. TYPE: 
C74 BLKL 1 | 
C78 VIDEO. TERMINAL 
00 C7 f 8 
C 
C7C VID_ TERR: | 
C7 1 
C80 SCREEN_ ei hese 
C -BLKB 20 
C94 OUT_LINE: 
C9 .BLKB * | 
00000001 +} ONE : -LONG 
DOC CHFFLAGS: 
00000000 09 LON 
DAS FLAGS: .BLKB 
DAS TEMP_FDL3STYPE: 
DAS LINE_WIDTH : | 
DAC LINES_PER PAGE ; 
DBO DEST_IS ~iGRMINAL | 
3 
DB4 LINES_S ‘ | 
DBS MINIMUM_TERM WIDTH 
00000050 ‘ 
DBC MINIMUM_VIDEO_PAGE 
sect ya SCROLLING’ Set 
00 5 9 
DC4 FULL PROMPT: 
01 .BYTE 
“BLKB 
DCB TEMP_FULL_ PROMPT 
00 BYTE 
¢ .BLKB 


Dd 
DCC ORIG_TIME: 
occ -BLKF 1 


oo 


Generated Code 


0000011 
00000017 


8% 3 8 o 9 


50 4C 48 46 44 45 


F 
BRP R IRE 


7% 7% 41 20 }6 4 re $i 


oe ee 
00000028 
RUGKRERETERA BE 
64 45 20 4C 44 46 31 3 3 38 rh 36 23 
& 5 3 45 Ht 73 «73 ¢ 72 50 90 
GARRET HRT EE Ee E 
00000000 
00000000 
00000000 
00000000 
00000000 


fees esas 
7 : a 


is 
DEF AULT_PRINUM: 


SEC_ATTR: 
ASCII 


C EDFHLP_STRING: 


IDENT_STRING: 
ASCII 


6 PARAM_BLOCK: 
4 
4 
2 


> 
on 


EDF HEADER: 
ASCII 


CO RE. yen 
ASCII 


ISTATUS: .BLKL 
F AB_DUMMY : 
-BLKA 


RAB_DUMMY : 
FDL_BLOCK: 
a 
DEF _CURRENT: 
DEF _SCRATCH: 


FRSSAASSLMSAERMSSAMOOaO 


DEF_TAIL: 
DEF _SUCC: 


.LONG 
DEF _PRED: 


Of fFOOOC ee 


§ 
? 
1 
17 
23 


36 
\ Secondary Attributes \<0><0> 


\EDFHLP\<0><0> 
\ VAX-11 FDL Editor\ 


IDENT _STRING aw’ i 


\(Type ‘'?"' for List of Keywords) \<0> 


\ VAX-11 FOL Editor \<0> 


\ Press RET to continue (*2 for Main M\- 
\enu) \<0><0><0> 


oooooe,}+}-. - — 


“11 P 
DLaKSvMSMAStER féDr- CRCIEDEVAR.PAS; 1°22) * 


Generated Code of 350-1982 99:98:89 — PTScdunsmaSten tener saczepevan.pas;1 t85 


DEF _ANL Pity . 
DEF _ANL_ “*40Ne . 
F4 DEF SAVE ti AD . 
$ 
seneene ' Der SAVES Al . 
3 
00000000 ‘§ “LONG 0 
FC POINTING.AT_DEF INITION: 
. ee | 
FILE_CREATED | 
00 “BYTE g 
-BLKB | 
INPUT_DESC: 
-BLKB 8 
| 


INPUT_STRING: 
-BLKB 


INPUT _VALUE : 
-BLKL 

INPUT _NUMBER : 
-BL 


QUAD_DESC: 
-BLKB 


LINKED: .BLKB 
ACTIVE Anes +4 
ACTIVE PRIMARY : 

-BLKB 


we —- Weweop- — 


VARIABLE ~~ t: ie 


CUR_MAK_REC: 
BYTES_PER ButKer 
BUCKET bef AULT: 
PRIMARY = INDEX PUA KETS: 
INIT eet cbucsts: 
ADDED eee  bugKers: 
INIT wren R Bucxgs: 
ADDED -NuRGER cbucsts: 
RECS_PER_BUCKET: 


TBLKL ; 
PiRst PL ST: Pe 


ee ae 


H 9 | 
FOL Y000 Generated Code a eae 1H 99:48:35 ST EKSUMGAASTER EEDF<GRCJEDFVAR.PAS: 1° a2) te 
-BLKB | 
OPTIMIZING: | 
-BLKB 
VISIBLE QUEST 10N; | 
WALT.HELP: | 
000000 QTAB: «LONG 1 
00000000 00000000 00000000 00000000 90000000 “LONG 0,0,0,0,0,0 
00000000 00000000 00000000 00000000 900000 0 ‘PONG 0,0,0,0,0,0 
00000000 00000000 00000000 00000000 900000 " ‘PONG 0,0,0,0,0,0 
00000000 00000000 00000000 00000000 990 oh ‘PONG 0,0,0,0,0,0 
00000000 00000000 00000000 00000000 900000 0 “PONG 0,0,0,0,0,1 
00000000 00000000 00000063 FFFFFF9D 900000 0 ‘BING 0.-99.99,0,0,1 
00000000 00000000 00000063 FFFFFF9D 000000 0 BING 0,-99,99,0,0.1 
00000000 00000000 00000063 FFFFFF9D 000000 ‘PING 0.-99,99,0,0,2 
00000000 00000000 00000000 00000000 90000 PONG 1,0,0,0,0.2 
00000000 00000000 00000000 00000000 90000001 ‘PONG 1,0,0,0,0,2 
00000000 00000000 00000000 00000000 99900001 PONE 1,0,0,0,0,2 
00000000 00000000 00000000 00000000 990000 ; ‘PONG 0,0,0,0,0,2 | 
00000000 00000000 00000000 00000000 900000 ‘ PONE 0,0,0,0,0,2 | 
00000000 00000000 00000000 00000000 99000001 i ‘PONG 1,0,0,0,0,2 | 
90000000 00000000 00000000 00000000 99000000 i BONE 0,0,0,0,0,2 | 


V6~000 Generated Code if sep 198¢ 99:35:39 | BIEKSUMGMASTER EEDF-SRCIEDFVAR.PAS: 1 <2) “0 
90000000 00000000 00000000 00000000 909000 $0 Tone 0,0,0,0,0,2 | 
00000000 00000000 90000000 00000000 900009 : TONG —0,0,0,0,0,2 = 
00000000 90000000 00000000 00000000 90000001 4 ) TONG 1,0,0,0.0.2 $3 
00000000 00000000 90000000 00000000 900000 438 ‘TONG 0,0,0,0,0.2 f 
00000000 00000000 00000000 00000000 900000 iB ‘TONG 0,0,0,0.0.2 003 
00000000 00000000 90000000 00000000 99000009 seb TONG 0,0,0,0.0.3 203 
00000000 00000000 SB9AC9FF 00000001 90000003 deg ‘Poné —5.1,999999999.0.0,3 003 
00000000 00000000 00000000 00000000 0900000 i ‘TONG 0,0,0,0,0.3 900 
00000000 00000000 3B9AC9FF 00000000 99000000 S18 “PONG —0,0,999999999,0,0,3 00d 
00000000 00000000 3B9AC9FF 00000000 oon a ‘PONE —0,0,999999999,0,0.3 00d 
00000000 00000000 3B9AC9FF 00000000 00018649 0 sth ‘TONG  100000,0,999999999,0,0,3 God 
00000000 00000000 0000003F 00000001 00000020 f ‘TONG $2.1.63,0,0.4 oF 
00000000 00000000 00000000 00000000 a i TONG 1.0.0,0.0,4 
00000000 00000000 90000000 00000000 900000 3 $3 ‘TONG 9.0,0,0.0.3 
00000000 00000000 000000FF 00000001 900000 2 : ‘TONG 2.1.255,0,0.4 
00000000 00000000 00000000 00000000 900009 ‘TONG 3.0.0,0.0.4 
00000000 00000000 00000000 00000000 S380 ED TONG 3,0,0.0.0,3 
00000006 00000000 00000064 00000000 10808083 i o 
00000000 00000000 00000064 00000000 900000 ole :LONG §— 50,0, 100,0,0,3 


| 
TONG 100,0,100,0,0.3 
} 
| 
| 
| 


—_—_ Oo  -  - OOO O - --—— - —y crc 


$4000 Generated Code 1f-$e0-1984 99:5838F  WieebumGaRStER fepr-sRcJEDFVaR.pAS:1 ces 


’ 
| 


1 A .BYTE 1 
00000000 00000000 00000064 00000000 900000 ; ? “LONG 100,0,100,0,0,3 | 
.BYT 
00000000 00000000 O000FFFF 00000000 900000 0 6 , ment 8 0.65535,0,0,4 
65¢ .BYTE 1 
00000000 00000000 00000000 00000000 900000 “LONG 2,0,0,0,0,3 
7 .BYT 
00000000 00000000 3B9AC9FF 00000000 900000 67% nett 8 0.999999999.0.0,3 
E .BYTE 1 
00000000 00000000 3B9AC9FF 00000000 900000 9 5 "LONG 0,0,999999999,0,0,3 
1 6A .BYTE 1 
00000000 00000000 3B89AC9FF 00000000 0001 86A0 sn BONE 100000,0,999999999,0,0,3 
1 6C .BYTE 1 
00000000 00000000 00007DFO 00000000 coon 6c “LONG 0,0,32240,0,0,3 
1 609 .BYTE 1 
00000000 00000000 00000000 00000000 se ser “LONG § 1,0,0,0,0,3 
1 6F .BYTE 1 
00000000 00000000 00000000 00000000 900 OOF F Hf “LONG 255,0,0,0,0,3 
00 03708 .BYTE 0 
00000000 00000000 00000000 00000000 0 900000 70¢ “LONG 0,0,0,0,0,4 
1 724 .BYTE 1 
00000000 00000000 00000000 00000000 0900021 t 3 “LONG  33,0,0,0,0,4 
1 730 -BYTE 1 
00000000 00000000 00000000 00000000 conn) t 3 “LONG 0,0,0,0,0,3 
75 .BYTE 0 
00000000 00000000 00000000 00000000 0900000 0 139 “LONG 0,0,0,0,0,3 
76F .BYTE 0 
00000000 00000000 00007DFO 00000001 00 0000 170 “LONG 0,1, 32240,0,0,3 
1 7 .BYTE 1 
00000000 00000000 3B9AC9FF 00000000 900000 9 789 "LONG 0,0,999999999,0,0,3 | 
j 7A} .BYTE 1 
00000000 00000000 000000FF 00000001 900000 1 ZA "LONG ~=-: 1,1, 255, 0,0.3 | 
7BA -BYTE 
00000000 00000000 3B9AC9FF 00000000 900000 788 “LONG 8 0.999999999.0.0.3 
1 703 .BYTE 1 | 
00000000 00000000 00000003 00000000 900000 ; 704 “LONG 3,0,3,0,0,4 | 
1 7EC .BYTE 1 | 
00000000 00000000 00000000 00000000 900000 0 gE “LONG 0,0,0,0,0.4 | 


EDF VAR 16-Sep-1984 VAX-11 Pascal V2. 4 | 
-000 Generated Code g-3 £01944 99: $6; 3$ DISKSVMSMASTER: fibre se SRCJEDFVAR.PAS; 1 Pays . 
5 .BYTE 1 | 
00000000 00000000 00000000 00000000 999000 Og BONE 14,0,0,0,0,4 
iE BYTE 1 
00000000 00000000 00000000 00000000 99000000 ) i -LONG 0,0,0,0,0,4 | 
.BYT 
00000000 00000000 00000000 00000000 20088894 ; Pie §.0,0,0,0,4 | 
5 BYTE | 
00000000 00000000 00000000 00000000 900000 LONG §.0,0,0,0,3 
.BYTE 1 
00000000 00000000 00007DFO 00000001 900000 } a [LONG 1,1,32240,0,0,3 
1 Bae .BYTE 1 
00000000 00000000 00007DFO 00000001 00 O36 883 “LONG 1000,1,32240,0,0,4 | 
1 898 .BYTE 1 
00000000 00000000 00000000 00000000 st S3e00 “LONG 5,0,0,0,0,4 | 
1 8B4 -BYTE 1 
00000000 00000000 00000000 00000000 30088096 Sees LONG 8,0,0,0,0,6 
0 38CD .BYTE 0 
00000000 00000000 00000000 00000000 90000000 Siar LONG 0,0,0,0,0,6 
00 38E6 .BYTE 0 
00000000 00000000 00000000 00000000 00000000 Siero -LONG 9.0,0,0,0 
O38FC QTAB_OFFSET: 
O38rC -BLKL 1 | 
0000 3900 SDATA: :SIGNED_WORD 0 
02 OF 0390 - SIGNED-BYTE 14,2 
0000000 03904 LONG 
0000 03908 SIGNED_WORD 0 
02 OF 0390A “SIGNED-BYTE 14,2 
000000 0390¢ "LONG “0 
0000 03910 “SIGNED_WORD 0 
02 5 : 912 SIGNEDBYTE 14,2 
00 000 914 LONG 70 
0000 918 “SIGNED_WORD 0 
02 91A - SIGNED BYTE 14,2 | 
00 00 91 LONG 
9 6 “SIGNED_WORD 0 | 
02 E 9 - SIGNED_BYTE 14,2 
00 9000 924 LONG 
928 “SIGNED_WORD 0 
02 oe 920A SSIGNED-BYTE 14,2 
000600 9 ¢ "LONG 70 
930 RDATA: -BLKF 11 | 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 95C BDATA: .BYTE 0,0,0,0,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,- 
00 00 00 00 00 00 00 00 00 00 00 364 nae °0.0,0 | 
978 IDATA: “BLKL 74 
00 00 00 00 00 00 00 00 0 00 0 a8 VDATA: :BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.0,0,.0,0,0,- 
00 00 00 00 $0 00 88 8 00 88 8 8 88 88 AAE 8-8-8 -07870707070707020707020.0.070.0,002 | 
| 


104-000 Generated Code ifese Haars fi 99: $3 $ DLSKSVMSMASTER  TEDF-SRCIEDFVAR.PAS; 1° 325 ” 


88 88 88 88 OB 00 2 £8 a 8 i 8 ABC 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


> 
oO 
~“"Co> 


AD BLKe 
AEQ TEMP_STRING255: 
ary -BLKB 55 
BEO TEMP_DESCRIPTOR: 
BE -BLKB 
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COMPILER INTERNAL TIMING 


Phase ross CPU Time elageey Time 
Initialization 3 00:00.4 0:03.8 
Source soetyets 732 00:14.5 Berndt 
Source List 41 8:03 705.3 
Tree Construction 0 0: 8 0:00.0 
Flow Analysis 0 0:00. 0:00.0 
Profit “analyst 0 0:00.0 00:00.0 
Context Analysis 0 00:00.0 00:00.0 
Name Packi ng 0 00:00.0 00:00.0 
Code , detect on 0 B89 -9 00:00.0 
Fina 106 00:03. 00:08.2 
TOTAL 976 00:20.5 02:57.4 
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